home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / remrem.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  408 b   |  14 lines
  1. 10  INPUT "ENTER FILE TO REMOVE REMARKS FROM-",I$:OPEN I$ FOR INPUT AS 1
  2. 20  INPUT "ENTER OUTPUT FILENAME-",O$:OPEN O$ FOR OUTPUT AS 2
  3. 30  WHILE NOT EOF(1)
  4. 40  LINE INPUT#1,X$:C=0
  5. 50  C=C+1:X=INSTR(C,X$,"'"):IF X=0 THEN 200
  6. 60  Y=INSTR(C,X$,CHR$(34)):IF Y=0 OR Y>X THEN 170
  7. 70  C=INSTR(Y+1,X$,CHR$(34)):IF C>0 AND C<LEN(X$) THEN 50 ELSE 200
  8. 80  STOP
  9. 170  Y=INSTR(X$," "):IF MID$(X$,Y,X-Y)=SPACE$(X-Y) THEN X$=MID$(X$,1,Y)+"'":GOTO 200
  10. 180  IF X>Y+1 THEN X=X-1
  11. 190  X$=MID$(X$,1,X)
  12. 200  PRINT#2,X$:PRINT X$
  13. 210  WEND
  14.